home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
COMMUNIC
/
H191.ZIP
/
CA29-3.EXE
/
FINDNAME.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1989-07-14
|
2KB
|
60 lines
; ----- Findname: Look up a word in the dialing directory
; If no directory entry matches, look for a script
; with the given name.
;
; R.McG; 7/89, Chicago
; ----------------------------------------------------------------
; Ask for a word
;
WOPEN 10 10 13 70 (blue red) ESCape
ATSAY 10 12 (blue yellow) " Find Name "
ATSAY 11 12 (blue yellow) "Enter the word to be searched: "
ATGET 12 12 (blue white) 26 S0 ; Read word
WCLOSE
IF NULL S0 ; If file not open
SOUND 55,1000 ; Bronx cheer
EXIT ; Stop here
ENDIF
;
; Look for the word in the dialing directory
;
LEGEND "FindName: Searching dialing directory"
FOR N0 = 1,100
DIRECT S1 N0 ; Entry name
IF FIND S1 S0 ; If we find word in name
LEGEND "FindName: Dialing " * S1
DIAL N0 ; Dial number
IF SUCCESS ; Entry number
DSCRIPT S1 N0 ; Look for a linked script
IF NOT NULL S1 ; Script name when used
SET LINKED ON ; Fake entry from dial command
EXECUTE S1 ; Link to script
ENDIF
ENDIF
EXIT ; Exit whether dial succeed or failed
ENDIF
ENDFOR
;
; Look for an executable script file of that name
;
LEGEND "FindName: Searching for script named "*S0
IF ISSCFile S0 ; If script file of that name exists
LEGEND "" ; Clear legend line
EXECUTE S0 ; Execute it
ENDIF
;
; Failed
;
CURSOR N0,N1
ATSAY N0,N1 (DEFAULT) "Word does not exist"
MESSAGE "^M^J" ; Scroll down
SOUND 55,500
EXIT
;
; Escape - simply no-op
;
Escape:
S0 = "" ; Make null return
RETURN